(Info-follow-reference): Nice error msg if there was no arg.

diff --git a/lisp/info.el b/lisp/info.el
index 928625093c378bb6be6d298e3d5e8da46cf2e3b8..c96844a88fc69735f1478482614eba5b7561203e 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1063,6 +1063,10 @@ NAME may be an abbreviation of the reference name."
           (list (if (equal input "")
                     default input)))
        (error "No cross-references in this node"))))
+
+  (unless footnotename
+    (error "No reference was specified"))
+
   (let (target beg i (str (concat "\\*note " (regexp-quote footnotename)))
               (case-fold-search t))
     (while (setq i (string-match " " str i))